home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1995-08-29 | 10.5 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 1%
| dexvert
| Combustion 2 Particle Library (other/combustion2ParticleLibrary)
| ext
| Unsupported |
| 100%
| file
| Emacs/XEmacs v19 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
| |
| 100%
| xdgMime
| text/x-emacs-lisp
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 63 74 68 6f 6d 70 40 |piled by| cthomp@|
|00000020| 77 69 6c 6c 6f 77 2e 63 | 73 2e 75 69 75 63 2e 65 |willow.c|s.uiuc.e|
|00000030| 64 75 20 6f 6e 20 54 75 | 65 20 41 75 67 20 32 39 |du on Tu|e Aug 29|
|00000040| 20 31 34 3a 31 31 3a 34 | 30 20 31 39 39 35 0a 3b | 14:11:4|0 1995.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 78 65 |;; from |file /xe|
|00000060| 6d 61 63 73 2f 78 65 6d | 61 63 73 2d 31 39 2e 31 |macs/xem|acs-19.1|
|00000070| 33 2d 72 65 6c 65 61 73 | 65 2f 65 64 69 74 6f 72 |3-releas|e/editor|
|00000080| 2f 6c 69 73 70 2f 70 61 | 63 6b 61 67 65 73 2f 63 |/lisp/pa|ckages/c|
|00000090| 6d 75 73 63 68 65 6d 65 | 2e 65 6c 0a 3b 3b 3b 20 |muscheme|.el.;;; |
|000000a0| 65 6d 61 63 73 20 76 65 | 72 73 69 6f 6e 20 31 39 |emacs ve|rsion 19|
|000000b0| 2e 31 33 20 58 45 6d 61 | 63 73 20 4c 75 63 69 64 |.13 XEma|cs Lucid|
|000000c0| 2e 0a 3b 3b 3b 20 62 79 | 74 65 63 6f 6d 70 20 76 |..;;; by|tecomp v|
|000000d0| 65 72 73 69 6f 6e 20 32 | 2e 32 35 3b 20 31 2d 53 |ersion 2|.25; 1-S|
|000000e0| 65 70 2d 39 34 2e 0a 3b | 3b 3b 20 6f 70 74 69 6d |ep-94..;|;; optim|
|000000f0| 69 7a 61 74 69 6f 6e 20 | 69 73 20 6f 6e 2e 0a 3b |ization |is on..;|
|00000100| 3b 3b 20 74 68 69 73 20 | 66 69 6c 65 20 75 73 65 |;; this |file use|
|00000110| 73 20 6f 70 63 6f 64 65 | 73 20 77 68 69 63 68 20 |s opcode|s which |
|00000120| 64 6f 20 6e 6f 74 20 65 | 78 69 73 74 20 69 6e 20 |do not e|xist in |
|00000130| 45 6d 61 63 73 20 31 38 | 2e 0a 0a 28 69 66 20 28 |Emacs 18|...(if (|
|00000140| 61 6e 64 20 28 62 6f 75 | 6e 64 70 20 27 65 6d 61 |and (bou|ndp 'ema|
|00000150| 63 73 2d 76 65 72 73 69 | 6f 6e 29 0a 09 20 28 6f |cs-versi|on).. (o|
|00000160| 72 20 28 61 6e 64 20 28 | 62 6f 75 6e 64 70 20 27 |r (and (|boundp '|
|00000170| 65 70 6f 63 68 3a 3a 76 | 65 72 73 69 6f 6e 29 20 |epoch::v|ersion) |
|00000180| 65 70 6f 63 68 3a 3a 76 | 65 72 73 69 6f 6e 29 0a |epoch::v|ersion).|
|00000190| 09 20 20 20 20 20 28 73 | 74 72 69 6e 67 2d 6c 65 |. (s|tring-le|
|000001a0| 73 73 70 20 65 6d 61 63 | 73 2d 76 65 72 73 69 6f |ssp emac|s-versio|
|000001b0| 6e 20 22 31 39 22 29 29 | 29 0a 20 20 20 20 28 65 |n "19"))|). (e|
|000001c0| 72 72 6f 72 20 22 54 68 | 69 73 20 66 69 6c 65 20 |rror "Th|is file |
|000001d0| 77 61 73 20 63 6f 6d 70 | 69 6c 65 64 20 66 6f 72 |was comp|iled for|
|000001e0| 20 45 6d 61 63 73 20 31 | 39 2e 22 29 29 0a 0a 28 | Emacs 1|9."))..(|
|000001f0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 c1 21 88 c0 |byte-cod|e "..!..|
|00000200| c2 21 87 22 20 5b 72 65 | 71 75 69 72 65 20 73 63 |.!." [re|quire sc|
|00000210| 68 65 6d 65 20 63 6f 6d | 69 6e 74 5d 20 32 29 0a |heme com|int] 2).|
|00000220| 28 64 65 66 76 61 72 20 | 69 6e 66 65 72 69 6f 72 |(defvar |inferior|
|00000230| 2d 73 63 68 65 6d 65 2d | 6d 6f 64 65 2d 68 6f 6f |-scheme-|mode-hoo|
|00000240| 6b 20 6e 69 6c 20 22 5c | 0a 2a 48 6f 6f 6b 20 66 |k nil "\|.*Hook f|
|00000250| 6f 72 20 63 75 73 74 6f | 6d 69 73 69 6e 67 20 69 |or custo|mising i|
|00000260| 6e 66 65 72 69 6f 72 2d | 73 63 68 65 6d 65 20 6d |nferior-|scheme m|
|00000270| 6f 64 65 2e 22 29 0a 28 | 62 79 74 65 2d 63 6f 64 |ode.").(|byte-cod|
|00000280| 65 20 22 c0 c1 21 ac 82 | c2 11 09 ac a0 c3 0c 21 |e "..!..|.......!|
|00000290| 11 c5 09 c6 c7 23 88 c5 | 09 c8 c9 23 88 c5 09 ca |.....#..|...#....|
|000002a0| cb 23 88 c5 09 cc cd 23 | 88 ce 09 21 88 c5 0e 0f |.#.....#|...!....|
|000002b0| c6 c7 23 88 c5 0e 0f c8 | c9 23 88 c5 0e 0f d0 c7 |..#.....|.#......|
|000002c0| 23 88 c5 0e 0f d1 d2 23 | 88 c5 0e 0f d3 d4 23 88 |#......#|......#.|
|000002d0| c5 0e 0f d5 d6 23 88 c5 | 0e 0f d7 d8 23 88 c5 0e |.....#..|....#...|
|000002e0| 0f d9 da 23 88 c5 0e 0f | db dc 23 88 c5 0e 0f ca |...#....|..#.....|
|000002f0| cb 23 88 c5 0e 0f cc cd | 23 87 22 20 5b 62 6f 75 |.#......|#." [bou|
|00000300| 6e 64 70 20 69 6e 66 65 | 72 69 6f 72 2d 73 63 68 |ndp infe|rior-sch|
|00000310| 65 6d 65 2d 6d 6f 64 65 | 2d 6d 61 70 20 6e 69 6c |eme-mode|-map nil|
|00000320| 20 63 6f 70 79 2d 6b 65 | 79 6d 61 70 20 63 6f 6d | copy-ke|ymap com|
|00000330| 69 6e 74 2d 6d 6f 64 65 | 2d 6d 61 70 20 64 65 66 |int-mode|-map def|
|00000340| 69 6e 65 2d 6b 65 79 20 | 22 98 22 20 73 63 68 65 |ine-key |"." sche|
|00000350| 6d 65 2d 73 65 6e 64 2d | 64 65 66 69 6e 69 74 69 |me-send-|definiti|
|00000360| 6f 6e 20 22 18 05 22 20 | 73 63 68 65 6d 65 2d 73 |on ".." |scheme-s|
|00000370| 65 6e 64 2d 6c 61 73 74 | 2d 73 65 78 70 20 22 03 |end-last|-sexp ".|
|00000380| 0c 22 20 73 63 68 65 6d | 65 2d 6c 6f 61 64 2d 66 |." schem|e-load-f|
|00000390| 69 6c 65 20 22 03 0b 22 | 20 73 63 68 65 6d 65 2d |ile ".."| scheme-|
|000003a0| 63 6f 6d 70 69 6c 65 2d | 66 69 6c 65 20 73 63 68 |compile-|file sch|
|000003b0| 65 6d 65 2d 6d 6f 64 65 | 2d 63 6f 6d 6d 61 6e 64 |eme-mode|-command|
|000003c0| 73 20 73 63 68 65 6d 65 | 2d 6d 6f 64 65 2d 6d 61 |s scheme|-mode-ma|
|000003d0| 70 20 22 03 05 22 20 22 | 03 e5 22 20 73 63 68 65 |p ".." "|.." sche|
|000003e0| 6d 65 2d 73 65 6e 64 2d | 64 65 66 69 6e 69 74 69 |me-send-|definiti|
|000003f0| 6f 6e 2d 61 6e 64 2d 67 | 6f 20 22 03 12 22 20 73 |on-and-g|o ".." s|
|00000400| 63 68 65 6d 65 2d 73 65 | 6e 64 2d 72 65 67 69 6f |cheme-se|nd-regio|
|00000410| 6e 20 22 03 f2 22 20 73 | 63 68 65 6d 65 2d 73 65 |n ".." s|cheme-se|
|00000420| 6e 64 2d 72 65 67 69 6f | 6e 2d 61 6e 64 2d 67 6f |nd-regio|n-and-go|
|00000430| 20 22 03 e3 22 20 73 63 | 68 65 6d 65 2d 63 6f 6d | ".." sc|heme-com|
|00000440| 70 69 6c 65 2d 64 65 66 | 69 6e 69 74 69 6f 6e 20 |pile-def|inition |
|00000450| 22 03 03 22 20 73 63 68 | 65 6d 65 2d 63 6f 6d 70 |".." sch|eme-comp|
|00000460| 69 6c 65 2d 64 65 66 69 | 6e 69 74 69 6f 6e 2d 61 |ile-defi|nition-a|
|00000470| 6e 64 2d 67 6f 20 22 03 | 1a 22 20 73 77 69 74 63 |nd-go ".|." switc|
|00000480| 68 2d 74 6f 2d 73 63 68 | 65 6d 65 5d 20 34 29 0a |h-to-sch|eme] 4).|
|00000490| 28 66 73 65 74 20 27 69 | 6e 66 65 72 69 6f 72 2d |(fset 'i|nferior-|
|000004a0| 73 63 68 65 6d 65 2d 6d | 6f 64 65 20 23 5b 6e 69 |scheme-m|ode #[ni|
|000004b0| 6c 20 22 c0 20 88 c1 12 | c3 20 88 c4 15 c6 16 07 |l ". ...|. ......|
|000004c0| c8 16 09 ca 0e 0b 21 88 | cc 16 0d ce 16 0f d0 d1 |......!.|........|
|000004d0| 21 87 22 20 5b 63 6f 6d | 69 6e 74 2d 6d 6f 64 65 |!." [com|int-mode|
|000004e0| 20 22 5e 5b 5e 3e 5c 6e | 5d 2a 3e 2b 20 2a 22 20 | "^[^>\n|]*>+ *" |
|000004f0| 63 6f 6d 69 6e 74 2d 70 | 72 6f 6d 70 74 2d 72 65 |comint-p|rompt-re|
|00000500| 67 65 78 70 20 73 63 68 | 65 6d 65 2d 6d 6f 64 65 |gexp sch|eme-mode|
|00000510| 2d 76 61 72 69 61 62 6c | 65 73 20 69 6e 66 65 72 |-variabl|es infer|
|00000520| 69 6f 72 2d 73 63 68 65 | 6d 65 2d 6d 6f 64 65 20 |ior-sche|me-mode |
|00000530| 6d 61 6a 6f 72 2d 6d 6f | 64 65 20 22 49 6e 66 65 |major-mo|de "Infe|
|00000540| 72 69 6f 72 20 53 63 68 | 65 6d 65 22 20 6d 6f 64 |rior Sch|eme" mod|
|00000550| 65 2d 6e 61 6d 65 20 28 | 22 3a 25 73 22 29 20 6d |e-name (|":%s") m|
|00000560| 6f 64 65 2d 6c 69 6e 65 | 2d 70 72 6f 63 65 73 73 |ode-line|-process|
|00000570| 20 75 73 65 2d 6c 6f 63 | 61 6c 2d 6d 61 70 20 69 | use-loc|al-map i|
|00000580| 6e 66 65 72 69 6f 72 2d | 73 63 68 65 6d 65 2d 6d |nferior-|scheme-m|
|00000590| 6f 64 65 2d 6d 61 70 20 | 73 63 68 65 6d 65 2d 69 |ode-map |scheme-i|
|000005a0| 6e 70 75 74 2d 66 69 6c | 74 65 72 20 63 6f 6d 69 |nput-fil|ter comi|
|000005b0| 6e 74 2d 69 6e 70 75 74 | 2d 66 69 6c 74 65 72 20 |nt-input|-filter |
|000005c0| 73 63 68 65 6d 65 2d 67 | 65 74 2d 6f 6c 64 2d 69 |scheme-g|et-old-i|
|000005d0| 6e 70 75 74 20 63 6f 6d | 69 6e 74 2d 67 65 74 2d |nput com|int-get-|
|000005e0| 6f 6c 64 2d 69 6e 70 75 | 74 20 72 75 6e 2d 68 6f |old-inpu|t run-ho|
|000005f0| 6f 6b 73 20 69 6e 66 65 | 72 69 6f 72 2d 73 63 68 |oks infe|rior-sch|
|00000600| 65 6d 65 2d 6d 6f 64 65 | 2d 68 6f 6f 6b 5d 20 32 |eme-mode|-hook] 2|
|00000610| 20 22 5c 0a 4d 61 6a 6f | 72 20 6d 6f 64 65 20 66 | "\.Majo|r mode f|
|00000620| 6f 72 20 69 6e 74 65 72 | 61 63 74 69 6e 67 20 77 |or inter|acting w|
|00000630| 69 74 68 20 61 6e 20 69 | 6e 66 65 72 69 6f 72 20 |ith an i|nferior |
|00000640| 53 63 68 65 6d 65 20 70 | 72 6f 63 65 73 73 2e 0a |Scheme p|rocess..|
|00000650| 0a 54 68 65 20 66 6f 6c | 6c 6f 77 69 6e 67 20 63 |.The fol|lowing c|
|00000660| 6f 6d 6d 61 6e 64 73 20 | 61 72 65 20 61 76 61 69 |ommands |are avai|
|00000670| 6c 61 62 6c 65 3a 0a 5c | 5c 7b 69 6e 66 65 72 69 |lable:.\|\{inferi|
|00000680| 6f 72 2d 73 63 68 65 6d | 65 2d 6d 6f 64 65 2d 6d |or-schem|e-mode-m|
|00000690| 61 70 7d 0a 0a 41 20 53 | 63 68 65 6d 65 20 70 72 |ap}..A S|cheme pr|
|000006a0| 6f 63 65 73 73 20 63 61 | 6e 20 62 65 20 66 69 72 |ocess ca|n be fir|
|000006b0| 65 64 20 75 70 20 77 69 | 74 68 20 4d 2d 78 20 72 |ed up wi|th M-x r|
|000006c0| 75 6e 2d 73 63 68 65 6d | 65 2e 0a 0a 43 75 73 74 |un-schem|e...Cust|
|000006d0| 6f 6d 69 73 61 74 69 6f | 6e 3a 20 45 6e 74 72 79 |omisatio|n: Entry|
|000006e0| 20 74 6f 20 74 68 69 73 | 20 6d 6f 64 65 20 72 75 | to this| mode ru|
|000006f0| 6e 73 20 74 68 65 20 68 | 6f 6f 6b 73 20 6f 6e 20 |ns the h|ooks on |
|00000700| 63 6f 6d 69 6e 74 2d 6d | 6f 64 65 2d 68 6f 6f 6b |comint-m|ode-hook|
|00000710| 20 61 6e 64 0a 69 6e 66 | 65 72 69 6f 72 2d 73 63 | and.inf|erior-sc|
|00000720| 68 65 6d 65 2d 6d 6f 64 | 65 2d 68 6f 6f 6b 20 28 |heme-mod|e-hook (|
|00000730| 69 6e 20 74 68 61 74 20 | 6f 72 64 65 72 29 2e 0a |in that |order)..|
|00000740| 0a 59 6f 75 20 63 61 6e | 20 73 65 6e 64 20 74 65 |.You can| send te|
|00000750| 78 74 20 74 6f 20 74 68 | 65 20 69 6e 66 65 72 69 |xt to th|e inferi|
|00000760| 6f 72 20 53 63 68 65 6d | 65 20 70 72 6f 63 65 73 |or Schem|e proces|
|00000770| 73 20 66 72 6f 6d 20 6f | 74 68 65 72 20 62 75 66 |s from o|ther buf|
|00000780| 66 65 72 73 20 63 6f 6e | 74 61 69 6e 69 6e 67 0a |fers con|taining.|
|00000790| 53 63 68 65 6d 65 20 73 | 6f 75 72 63 65 2e 20 20 |Scheme s|ource. |
|000007a0| 0a 20 20 20 20 73 77 69 | 74 63 68 2d 74 6f 2d 73 |. swi|tch-to-s|
|000007b0| 63 68 65 6d 65 20 73 77 | 69 74 63 68 65 73 20 74 |cheme sw|itches t|
|000007c0| 68 65 20 63 75 72 72 65 | 6e 74 20 62 75 66 66 65 |he curre|nt buffe|
|000007d0| 72 20 74 6f 20 74 68 65 | 20 53 63 68 65 6d 65 20 |r to the| Scheme |
|000007e0| 70 72 6f 63 65 73 73 20 | 62 75 66 66 65 72 2e 0a |process |buffer..|
|000007f0| 20 20 20 20 73 63 68 65 | 6d 65 2d 73 65 6e 64 2d | sche|me-send-|
|00000800| 64 65 66 69 6e 69 74 69 | 6f 6e 20 73 65 6e 64 73 |definiti|on sends|
|00000810| 20 74 68 65 20 63 75 72 | 72 65 6e 74 20 64 65 66 | the cur|rent def|
|00000820| 69 6e 69 74 69 6f 6e 20 | 74 6f 20 74 68 65 20 53 |inition |to the S|
|00000830| 63 68 65 6d 65 20 70 72 | 6f 63 65 73 73 2e 0a 20 |cheme pr|ocess.. |
|00000840| 20 20 20 73 63 68 65 6d | 65 2d 63 6f 6d 70 69 6c | schem|e-compil|
|00000850| 65 2d 64 65 66 69 6e 69 | 74 69 6f 6e 20 63 6f 6d |e-defini|tion com|
|00000860| 70 69 6c 65 73 20 74 68 | 65 20 63 75 72 72 65 6e |piles th|e curren|
|00000870| 74 20 64 65 66 69 6e 69 | 74 69 6f 6e 2e 0a 20 20 |t defini|tion.. |
|00000880| 20 20 73 63 68 65 6d 65 | 2d 73 65 6e 64 2d 72 65 | scheme|-send-re|
|00000890| 67 69 6f 6e 20 73 65 6e | 64 73 20 74 68 65 20 63 |gion sen|ds the c|
|000008a0| 75 72 72 65 6e 74 20 72 | 65 67 69 6f 6e 20 74 6f |urrent r|egion to|
|000008b0| 20 74 68 65 20 53 63 68 | 65 6d 65 20 70 72 6f 63 | the Sch|eme proc|
|000008c0| 65 73 73 2e 0a 20 20 20 | 20 73 63 68 65 6d 65 2d |ess.. | scheme-|
|000008d0| 63 6f 6d 70 69 6c 65 2d | 72 65 67 69 6f 6e 20 63 |compile-|region c|
|000008e0| 6f 6d 70 69 6c 65 73 20 | 74 68 65 20 63 75 72 72 |ompiles |the curr|
|000008f0| 65 6e 74 20 72 65 67 69 | 6f 6e 2e 0a 0a 20 20 20 |ent regi|on... |
|00000900| 20 73 63 68 65 6d 65 2d | 73 65 6e 64 2d 64 65 66 | scheme-|send-def|
|00000910| 69 6e 69 74 69 6f 6e 2d | 61 6e 64 2d 67 6f 2c 20 |inition-|and-go, |
|00000920| 73 63 68 65 6d 65 2d 63 | 6f 6d 70 69 6c 65 2d 64 |scheme-c|ompile-d|
|00000930| 65 66 69 6e 69 74 69 6f | 6e 2d 61 6e 64 2d 67 6f |efinitio|n-and-go|
|00000940| 2c 0a 20 20 20 20 20 20 | 20 20 73 63 68 65 6d 65 |,. | scheme|
|00000950| 2d 73 65 6e 64 2d 72 65 | 67 69 6f 6e 2d 61 6e 64 |-send-re|gion-and|
|00000960| 2d 67 6f 2c 20 61 6e 64 | 20 73 63 68 65 6d 65 2d |-go, and| scheme-|
|00000970| 63 6f 6d 70 69 6c 65 2d | 72 65 67 69 6f 6e 2d 61 |compile-|region-a|
|00000980| 6e 64 2d 67 6f 0a 20 20 | 20 20 20 20 20 20 73 77 |nd-go. | sw|
|00000990| 69 74 63 68 20 74 6f 20 | 74 68 65 20 53 63 68 65 |itch to |the Sche|
|000009a0| 6d 65 20 70 72 6f 63 65 | 73 73 20 62 75 66 66 65 |me proce|ss buffe|
|000009b0| 72 20 61 66 74 65 72 20 | 73 65 6e 64 69 6e 67 20 |r after |sending |
|000009c0| 74 68 65 69 72 20 74 65 | 78 74 2e 0a 46 6f 72 20 |their te|xt..For |
|000009d0| 69 6e 66 6f 72 6d 61 74 | 69 6f 6e 20 6f 6e 20 72 |informat|ion on r|
|000009e0| 75 6e 6e 69 6e 67 20 6d | 75 6c 74 69 70 6c 65 20 |unning m|ultiple |
|000009f0| 70 72 6f 63 65 73 73 65 | 73 20 69 6e 20 6d 75 6c |processe|s in mul|
|00000a00| 74 69 70 6c 65 20 62 75 | 66 66 65 72 73 2c 20 73 |tiple bu|ffers, s|
|00000a10| 65 65 0a 64 6f 63 75 6d | 65 6e 74 61 74 69 6f 6e |ee.docum|entation|
|00000a20| 20 66 6f 72 20 76 61 72 | 69 61 62 6c 65 20 73 63 | for var|iable sc|
|00000a30| 68 65 6d 65 2d 62 75 66 | 66 65 72 2e 0a 0a 43 6f |heme-buf|fer...Co|
|00000a40| 6d 6d 61 6e 64 73 3a 0a | 52 65 74 75 72 6e 20 61 |mmands:.|Return a|
|00000a50| 66 74 65 72 20 74 68 65 | 20 65 6e 64 20 6f 66 20 |fter the| end of |
|00000a60| 74 68 65 20 70 72 6f 63 | 65 73 73 27 20 6f 75 74 |the proc|ess' out|
|00000a70| 70 75 74 20 73 65 6e 64 | 73 20 74 68 65 20 74 65 |put send|s the te|
|00000a80| 78 74 20 66 72 6f 6d 20 | 74 68 65 20 0a 20 20 20 |xt from |the . |
|00000a90| 20 65 6e 64 20 6f 66 20 | 70 72 6f 63 65 73 73 20 | end of |process |
|00000aa0| 74 6f 20 70 6f 69 6e 74 | 2e 0a 52 65 74 75 72 6e |to point|..Return|
|00000ab0| 20 62 65 66 6f 72 65 20 | 74 68 65 20 65 6e 64 20 | before |the end |
|00000ac0| 6f 66 20 74 68 65 20 70 | 72 6f 63 65 73 73 27 20 |of the p|rocess' |
|00000ad0| 6f 75 74 70 75 74 20 63 | 6f 70 69 65 73 20 74 68 |output c|opies th|
|00000ae0| 65 20 73 65 78 70 20 65 | 6e 64 69 6e 67 20 61 74 |e sexp e|nding at|
|00000af0| 20 70 6f 69 6e 74 0a 20 | 20 20 20 74 6f 20 74 68 | point. | to th|
|00000b00| 65 20 65 6e 64 20 6f 66 | 20 74 68 65 20 70 72 6f |e end of| the pro|
|00000b10| 63 65 73 73 27 20 6f 75 | 74 70 75 74 2c 20 61 6e |cess' ou|tput, an|
|00000b20| 64 20 73 65 6e 64 73 20 | 69 74 2e 0a 44 65 6c 65 |d sends |it..Dele|
|00000b30| 74 65 20 63 6f 6e 76 65 | 72 74 73 20 74 61 62 73 |te conve|rts tabs|
|00000b40| 20 74 6f 20 73 70 61 63 | 65 73 20 61 73 20 69 74 | to spac|es as it|
|00000b50| 20 6d 6f 76 65 73 20 62 | 61 63 6b 2e 0a 54 61 62 | moves b|ack..Tab|
|00000b60| 20 69 6e 64 65 6e 74 73 | 20 66 6f 72 20 53 63 68 | indents| for Sch|
|00000b70| 65 6d 65 3b 20 77 69 74 | 68 20 61 72 67 75 6d 65 |eme; wit|h argume|
|00000b80| 6e 74 2c 20 73 68 69 66 | 74 73 20 72 65 73 74 0a |nt, shif|ts rest.|
|00000b90| 20 20 20 20 6f 66 20 65 | 78 70 72 65 73 73 69 6f | of e|xpressio|
|00000ba0| 6e 20 72 69 67 69 64 6c | 79 20 77 69 74 68 20 74 |n rigidl|y with t|
|00000bb0| 68 65 20 63 75 72 72 65 | 6e 74 20 6c 69 6e 65 2e |he curre|nt line.|
|00000bc0| 0a 43 2d 4d 2d 71 20 64 | 6f 65 73 20 54 61 62 20 |.C-M-q d|oes Tab |
|00000bd0| 6f 6e 20 65 61 63 68 20 | 6c 69 6e 65 20 73 74 61 |on each |line sta|
|00000be0| 72 74 69 6e 67 20 77 69 | 74 68 69 6e 20 66 6f 6c |rting wi|thin fol|
|00000bf0| 6c 6f 77 69 6e 67 20 65 | 78 70 72 65 73 73 69 6f |lowing e|xpressio|
|00000c00| 6e 2e 0a 50 61 72 61 67 | 72 61 70 68 73 20 61 72 |n..Parag|raphs ar|
|00000c10| 65 20 73 65 70 61 72 61 | 74 65 64 20 6f 6e 6c 79 |e separa|ted only|
|00000c20| 20 62 79 20 62 6c 61 6e | 6b 20 6c 69 6e 65 73 2e | by blan|k lines.|
|00000c30| 20 20 53 65 6d 69 63 6f | 6c 6f 6e 73 20 73 74 61 | Semico|lons sta|
|00000c40| 72 74 20 63 6f 6d 6d 65 | 6e 74 73 2e 0a 49 66 20 |rt comme|nts..If |
|00000c50| 79 6f 75 20 61 63 63 69 | 64 65 6e 74 61 6c 6c 79 |you acci|dentally|
|00000c60| 20 73 75 73 70 65 6e 64 | 20 79 6f 75 72 20 70 72 | suspend| your pr|
|00000c70| 6f 63 65 73 73 2c 20 75 | 73 65 20 5c 5c 5b 63 6f |ocess, u|se \\[co|
|00000c80| 6d 69 6e 74 2d 63 6f 6e | 74 69 6e 75 65 2d 73 75 |mint-con|tinue-su|
|00000c90| 62 6a 6f 62 5d 0a 74 6f | 20 63 6f 6e 74 69 6e 75 |bjob].to| continu|
|00000ca0| 65 20 69 74 2e 22 20 6e | 69 6c 5d 29 0a 28 64 65 |e it." n|il]).(de|
|00000cb0| 66 76 61 72 20 69 6e 66 | 65 72 69 6f 72 2d 73 63 |fvar inf|erior-sc|
|00000cc0| 68 65 6d 65 2d 66 69 6c | 74 65 72 2d 72 65 67 65 |heme-fil|ter-rege|
|00000cd0| 78 70 20 22 5c 5c 60 5c | 5c 73 20 2a 5c 5c 53 20 |xp "\\`\|\s *\\S |
|00000ce0| 3f 5c 5c 53 20 3f 5c 5c | 73 20 2a 5c 5c 27 22 20 |?\\S ?\\|s *\\'" |
|00000cf0| 22 5c 0a 2a 49 6e 70 75 | 74 20 6d 61 74 63 68 69 |"\.*Inpu|t matchi|
|00000d00| 6e 67 20 74 68 69 73 20 | 72 65 67 65 78 70 20 61 |ng this |regexp a|
|00000d10| 72 65 20 6e 6f 74 20 73 | 61 76 65 64 20 6f 6e 20 |re not s|aved on |
|00000d20| 74 68 65 20 68 69 73 74 | 6f 72 79 20 6c 69 73 74 |the hist|ory list|
|00000d30| 2e 0a 44 65 66 61 75 6c | 74 73 20 74 6f 20 61 20 |..Defaul|ts to a |
|00000d40| 72 65 67 65 78 70 20 69 | 67 6e 6f 72 69 6e 67 20 |regexp i|gnoring |
|00000d50| 61 6c 6c 20 69 6e 70 75 | 74 73 20 6f 66 20 30 2c |all inpu|ts of 0,|
|00000d60| 20 31 2c 20 6f 72 20 32 | 20 6c 65 74 74 65 72 73 | 1, or 2| letters|
|00000d70| 2e 22 29 0a 28 66 73 65 | 74 20 27 73 63 68 65 6d |.").(fse|t 'schem|
|00000d80| 65 2d 69 6e 70 75 74 2d | 66 69 6c 74 65 72 20 23 |e-input-|filter #|
|00000d90| 5b 28 73 74 72 29 20 22 | c0 09 5c 6e 5c 22 3f 87 |[(str) "|..\n\"?.|
|00000da0| 22 20 5b 73 74 72 69 6e | 67 2d 6d 61 74 63 68 20 |" [strin|g-match |
|00000db0| 69 6e 66 65 72 69 6f 72 | 2d 73 63 68 65 6d 65 2d |inferior|-scheme-|
|00000dc0| 66 69 6c 74 65 72 2d 72 | 65 67 65 78 70 20 73 74 |filter-r|egexp st|
|00000dd0| 72 5d 20 33 20 22 5c 0a | 44 6f 6e 27 74 20 73 61 |r] 3 "\.|Don't sa|
|00000de0| 76 65 20 61 6e 79 74 68 | 69 6e 67 20 6d 61 74 63 |ve anyth|ing matc|
|00000df0| 68 69 6e 67 20 69 6e 66 | 65 72 69 6f 72 2d 73 63 |hing inf|erior-sc|
|00000e00| 68 65 6d 65 2d 66 69 6c | 74 65 72 2d 72 65 67 65 |heme-fil|ter-rege|
|00000e10| 78 70 22 5d 29 0a 28 66 | 73 65 74 20 27 73 63 68 |xp"]).(f|set 'sch|
|00000e20| 65 6d 65 2d 67 65 74 2d | 6f 6c 64 2d 69 6e 70 75 |eme-get-|old-inpu|
|00000e30| 74 20 23 5b 6e 69 6c 20 | 22 8a 60 18 c1 20 88 60 |t #[nil |".`.. .`|
|00000e40| 08 7b 2a 87 22 20 5b 65 | 6e 64 20 62 61 63 6b 77 |.{*." [e|nd backw|
|00000e50| 61 72 64 2d 73 65 78 70 | 5d 20 32 20 22 5c 0a 53 |ard-sexp|] 2 "\.S|
|00000e60| 6e 61 72 66 20 74 68 65 | 20 73 65 78 70 20 65 6e |narf the| sexp en|
|00000e70| 64 69 6e 67 20 61 74 20 | 70 6f 69 6e 74 22 5d 29 |ding at |point"])|
|00000e80| 0a 28 66 73 65 74 20 27 | 73 63 68 65 6d 65 2d 61 |.(fset '|scheme-a|
|00000e90| 72 67 73 2d 74 6f 2d 6c | 69 73 74 20 23 5b 28 73 |rgs-to-l|ist #[(s|
|00000ea0| 74 72 69 6e 67 29 20 22 | c0 c1 5c 6e 5c 22 89 1b |tring) "|..\n\"..|
|00000eb0| ac 84 5c 6e 43 aa a9 0b | c4 55 ac 90 5c 6e c4 0b |..\nC...|.U..\n..|
|00000ec0| 4f c5 5c 6e 0b c6 5c 5c | 5c 6e 47 4f 21 42 aa 94 |O.\n..\\|\nGO!B..|
|00000ed0| c0 c7 5c 6e 5c 22 89 1e | 08 3f 3f ad 88 c5 5c 6e |..\n\"..|.??...\n|
|00000ee0| 0e 08 5c 6e 47 4f 21 29 | 29 87 22 20 5b 73 74 72 |..\nGO!)|)." [str|
|00000ef0| 69 6e 67 2d 6d 61 74 63 | 68 20 22 5b 20 09 5d 22 |ing-matc|h "[ .]"|
|00000f00| 20 73 74 72 69 6e 67 20 | 77 68 65 72 65 20 30 20 | string |where 0 |
|00000f10| 73 63 68 65 6d 65 2d 61 | 72 67 73 2d 74 6f 2d 6c |scheme-a|rgs-to-l|
|00000f20| 69 73 74 20 31 20 22 5b | 5e 20 09 5d 22 20 70 6f |ist 1 "[|^ .]" po|
|00000f30| 73 5d 20 36 5d 29 0a 28 | 64 65 66 76 61 72 20 73 |s] 6]).(|defvar s|
|00000f40| 63 68 65 6d 65 2d 70 72 | 6f 67 72 61 6d 2d 6e 61 |cheme-pr|ogram-na|
|00000f50| 6d 65 20 22 73 63 68 65 | 6d 65 22 20 22 5c 0a 2a |me "sche|me" "\.*|
|00000f60| 50 72 6f 67 72 61 6d 20 | 69 6e 76 6f 6b 65 64 20 |Program |invoked |
|00000f70| 62 79 20 74 68 65 20 72 | 75 6e 2d 73 63 68 65 6d |by the r|un-schem|
|00000f80| 65 20 63 6f 6d 6d 61 6e | 64 22 29 0a 28 66 73 65 |e comman|d").(fse|
|00000f90| 74 20 27 73 63 68 65 6d | 65 20 23 5b 28 26 72 65 |t 'schem|e #[(&re|
|00000fa0| 73 74 20 66 6f 6f 29 20 | 22 c0 c1 21 88 c2 20 87 |st foo) |"..!.. .|
|00000fb0| 22 20 5b 6d 65 73 73 61 | 67 65 20 22 55 73 65 20 |" [messa|ge "Use |
|00000fc0| 72 75 6e 2d 73 63 68 65 | 6d 65 22 20 64 69 6e 67 |run-sche|me" ding|
|00000fd0| 5d 20 32 20 22 5c 0a 55 | 73 65 20 72 75 6e 2d 73 |] 2 "\.U|se run-s|
|00000fe0| 63 68 65 6d 65 22 20 6e | 69 6c 5d 29 0a 28 66 73 |cheme" n|il]).(fs|
|00000ff0| 65 74 20 27 72 75 6e 2d | 73 63 68 65 6d 65 20 23 |et 'run-|scheme #|
|00001000| 5b 28 63 6d 64 29 20 22 | c0 c1 21 ac 93 c2 0b 21 |[(cmd) "|..!....!|
|00001010| 1c c5 c6 c7 0c 40 c8 0c | 41 25 71 88 c9 20 88 29 |.....@..|A%q.. .)|
|00001020| c1 16 5c 6e cb c1 21 87 | 22 20 5b 63 6f 6d 69 6e |..\n..!.|" [comin|
|00001030| 74 2d 63 68 65 63 6b 2d | 70 72 6f 63 20 22 2a 73 |t-check-|proc "*s|
|00001040| 63 68 65 6d 65 2a 22 20 | 73 63 68 65 6d 65 2d 61 |cheme*" |scheme-a|
|00001050| 72 67 73 2d 74 6f 2d 6c | 69 73 74 20 63 6d 64 20 |rgs-to-l|ist cmd |
|00001060| 63 6d 64 6c 69 73 74 20 | 61 70 70 6c 79 20 6d 61 |cmdlist |apply ma|
|00001070| 6b 65 2d 63 6f 6d 69 6e | 74 20 22 73 63 68 65 6d |ke-comin|t "schem|
|00001080| 65 22 20 6e 69 6c 20 69 | 6e 66 65 72 69 6f 72 2d |e" nil i|nferior-|
|00001090| 73 63 68 65 6d 65 2d 6d | 6f 64 65 20 73 63 68 65 |scheme-m|ode sche|
|000010a0| 6d 65 2d 62 75 66 66 65 | 72 20 73 77 69 74 63 68 |me-buffe|r switch|
|000010b0| 2d 74 6f 2d 62 75 66 66 | 65 72 5d 20 36 20 22 5c |-to-buff|er] 6 "\|
|000010c0| 0a 52 75 6e 20 61 6e 20 | 69 6e 66 65 72 69 6f 72 |.Run an |inferior|
|000010d0| 20 53 63 68 65 6d 65 20 | 70 72 6f 63 65 73 73 2c | Scheme |process,|
|000010e0| 20 69 6e 70 75 74 20 61 | 6e 64 20 6f 75 74 70 75 | input a|nd outpu|
|000010f0| 74 20 76 69 61 20 62 75 | 66 66 65 72 20 2a 73 63 |t via bu|ffer *sc|
|00001100| 68 65 6d 65 2a 2e 0a 49 | 66 20 74 68 65 72 65 20 |heme*..I|f there |
|00001110| 69 73 20 61 20 70 72 6f | 63 65 73 73 20 61 6c 72 |is a pro|cess alr|
|00001120| 65 61 64 79 20 72 75 6e | 6e 69 6e 67 20 69 6e 20 |eady run|ning in |
|00001130| 2a 73 63 68 65 6d 65 2a | 2c 20 6a 75 73 74 20 73 |*scheme*|, just s|
|00001140| 77 69 74 63 68 20 74 6f | 20 74 68 61 74 20 62 75 |witch to| that bu|
|00001150| 66 66 65 72 2e 0a 57 69 | 74 68 20 61 72 67 75 6d |ffer..Wi|th argum|
|00001160| 65 6e 74 2c 20 61 6c 6c | 6f 77 73 20 79 6f 75 20 |ent, all|ows you |
|00001170| 74 6f 20 65 64 69 74 20 | 74 68 65 20 63 6f 6d 6d |to edit |the comm|
|00001180| 61 6e 64 20 6c 69 6e 65 | 20 28 64 65 66 61 75 6c |and line| (defaul|
|00001190| 74 20 69 73 20 76 61 6c | 75 65 0a 6f 66 20 73 63 |t is val|ue.of sc|
|000011a0| 68 65 6d 65 2d 70 72 6f | 67 72 61 6d 2d 6e 61 6d |heme-pro|gram-nam|
|000011b0| 65 29 2e 20 20 52 75 6e | 73 20 74 68 65 20 68 6f |e). Run|s the ho|
|000011c0| 6f 6b 73 20 66 72 6f 6d | 20 69 6e 66 65 72 69 6f |oks from| inferio|
|000011d0| 72 2d 73 63 68 65 6d 65 | 2d 6d 6f 64 65 2d 68 6f |r-scheme|-mode-ho|
|000011e0| 6f 6b 0a 28 61 66 74 65 | 72 20 74 68 65 20 63 6f |ok.(afte|r the co|
|000011f0| 6d 69 6e 74 2d 6d 6f 64 | 65 2d 68 6f 6f 6b 20 69 |mint-mod|e-hook i|
|00001200| 73 20 72 75 6e 29 2e 0a | 28 54 79 70 65 20 5c 5c |s run)..|(Type \\|
|00001210| 5b 64 65 73 63 72 69 62 | 65 2d 6d 6f 64 65 5d 20 |[describ|e-mode] |
|00001220| 69 6e 20 74 68 65 20 70 | 72 6f 63 65 73 73 20 62 |in the p|rocess b|
|00001230| 75 66 66 65 72 20 66 6f | 72 20 61 20 6c 69 73 74 |uffer fo|r a list|
|00001240| 20 6f 66 20 63 6f 6d 6d | 61 6e 64 73 2e 29 22 20 | of comm|ands.)" |
|00001250| 28 62 79 74 65 2d 63 6f | 64 65 20 22 08 ab 86 c1 |(byte-co|de "....|
|00001260| c2 0b 5c 22 aa 81 0b 43 | 87 22 20 5b 63 75 72 72 |..\"...C|." [curr|
|00001270| 65 6e 74 2d 70 72 65 66 | 69 78 2d 61 72 67 20 72 |ent-pref|ix-arg r|
|00001280| 65 61 64 2d 73 74 72 69 | 6e 67 20 22 52 75 6e 20 |ead-stri|ng "Run |
|00001290| 53 63 68 65 6d 65 3a 20 | 22 20 73 63 68 65 6d 65 |Scheme: |" scheme|
|000012a0| 2d 70 72 6f 67 72 61 6d | 2d 6e 61 6d 65 5d 20 33 |-program|-name] 3|
|000012b0| 29 5d 29 0a 28 66 73 65 | 74 20 27 73 63 68 65 6d |)]).(fse|t 'schem|
|000012c0| 65 2d 73 65 6e 64 2d 72 | 65 67 69 6f 6e 20 23 5b |e-send-r|egion #[|
|000012d0| 28 73 74 61 72 74 20 65 | 6e 64 29 20 22 c0 c1 20 |(start e|nd) ".. |
|000012e0| 5c 6e 0b 23 88 c4 c1 20 | c5 5c 22 87 22 20 5b 63 |\n.#... |.\"." [c|
|000012f0| 6f 6d 69 6e 74 2d 73 65 | 6e 64 2d 72 65 67 69 6f |omint-se|nd-regio|
|00001300| 6e 20 73 63 68 65 6d 65 | 2d 70 72 6f 63 20 73 74 |n scheme|-proc st|
|00001310| 61 72 74 20 65 6e 64 20 | 63 6f 6d 69 6e 74 2d 73 |art end |comint-s|
|00001320| 65 6e 64 2d 73 74 72 69 | 6e 67 20 22 5c 6e 22 5d |end-stri|ng "\n"]|
|00001330| 20 34 20 22 5c 0a 53 65 | 6e 64 20 74 68 65 20 63 | 4 "\.Se|nd the c|
|00001340| 75 72 72 65 6e 74 20 72 | 65 67 69 6f 6e 20 74 6f |urrent r|egion to|
|00001350| 20 74 68 65 20 69 6e 66 | 65 72 69 6f 72 20 53 63 | the inf|erior Sc|
|00001360| 68 65 6d 65 20 70 72 6f | 63 65 73 73 2e 22 20 22 |heme pro|cess." "|
|00001370| 72 22 5d 29 0a 28 66 73 | 65 74 20 27 73 63 68 65 |r"]).(fs|et 'sche|
|00001380| 6d 65 2d 73 65 6e 64 2d | 64 65 66 69 6e 69 74 69 |me-send-|definiti|
|00001390| 6f 6e 20 23 5b 6e 69 6c | 20 22 8a c0 20 88 60 19 |on #[nil| ".. .`.|
|000013a0| c2 20 88 c3 60 09 5c 22 | 2a 87 22 20 5b 65 6e 64 |. ..`.\"|*." [end|
|000013b0| 2d 6f 66 2d 64 65 66 75 | 6e 20 65 6e 64 20 62 65 |-of-defu|n end be|
|000013c0| 67 69 6e 6e 69 6e 67 2d | 6f 66 2d 64 65 66 75 6e |ginning-|of-defun|
|000013d0| 20 73 63 68 65 6d 65 2d | 73 65 6e 64 2d 72 65 67 | scheme-|send-reg|
|000013e0| 69 6f 6e 5d 20 33 20 22 | 5c 0a 53 65 6e 64 20 74 |ion] 3 "|\.Send t|
|000013f0| 68 65 20 63 75 72 72 65 | 6e 74 20 64 65 66 69 6e |he curre|nt defin|
|00001400| 69 74 69 6f 6e 20 74 6f | 20 74 68 65 20 69 6e 66 |ition to| the inf|
|00001410| 65 72 69 6f 72 20 53 63 | 68 65 6d 65 20 70 72 6f |erior Sc|heme pro|
|00001420| 63 65 73 73 2e 22 20 6e | 69 6c 5d 29 0a 28 66 73 |cess." n|il]).(fs|
|00001430| 65 74 20 27 73 63 68 65 | 6d 65 2d 73 65 6e 64 2d |et 'sche|me-send-|
|00001440| 6c 61 73 74 2d 73 65 78 | 70 20 23 5b 6e 69 6c 20 |last-sex|p #[nil |
|00001450| 22 c0 8a c1 20 88 60 29 | 60 5c 22 87 22 20 5b 73 |"... .`)|`\"." [s|
|00001460| 63 68 65 6d 65 2d 73 65 | 6e 64 2d 72 65 67 69 6f |cheme-se|nd-regio|
|00001470| 6e 20 62 61 63 6b 77 61 | 72 64 2d 73 65 78 70 5d |n backwa|rd-sexp]|
|00001480| 20 33 20 22 5c 0a 53 65 | 6e 64 20 74 68 65 20 70 | 3 "\.Se|nd the p|
|00001490| 72 65 76 69 6f 75 73 20 | 73 65 78 70 20 74 6f 20 |revious |sexp to |
|000014a0| 74 68 65 20 69 6e 66 65 | 72 69 6f 72 20 53 63 68 |the infe|rior Sch|
|000014b0| 65 6d 65 20 70 72 6f 63 | 65 73 73 2e 22 20 6e 69 |eme proc|ess." ni|
|000014c0| 6c 5d 29 0a 28 64 65 66 | 76 61 72 20 73 63 68 65 |l]).(def|var sche|
|000014d0| 6d 65 2d 63 6f 6d 70 69 | 6c 65 2d 65 78 70 2d 63 |me-compi|le-exp-c|
|000014e0| 6f 6d 6d 61 6e 64 20 22 | 28 63 6f 6d 70 69 6c 65 |ommand "|(compile|
|000014f0| 20 27 25 73 29 22 20 22 | 5c 0a 2a 54 65 6d 70 6c | '%s)" "|\.*Templ|
|00001500| 61 74 65 20 66 6f 72 20 | 69 73 73 75 69 6e 67 20 |ate for |issuing |
|00001510| 63 6f 6d 6d 61 6e 64 73 | 20 74 6f 20 63 6f 6d 70 |commands| to comp|
|00001520| 69 6c 65 20 61 72 62 69 | 74 72 61 72 79 20 53 63 |ile arbi|trary Sc|
|00001530| 68 65 6d 65 20 65 78 70 | 72 65 73 73 69 6f 6e 73 |heme exp|ressions|
|00001540| 2e 22 29 0a 28 66 73 65 | 74 20 27 73 63 68 65 6d |.").(fse|t 'schem|
|00001550| 65 2d 63 6f 6d 70 69 6c | 65 2d 72 65 67 69 6f 6e |e-compil|e-region|
|00001560| 20 23 5b 28 73 74 61 72 | 74 20 65 6e 64 29 20 22 | #[(star|t end) "|
|00001570| c0 c1 20 c2 0b c2 c4 0d | 0e 06 7b 5c 22 5c 22 5c |.. .....|..{\"\"\|
|00001580| 22 88 c0 c1 20 c7 5c 22 | 87 22 20 5b 63 6f 6d 69 |"... .\"|." [comi|
|00001590| 6e 74 2d 73 65 6e 64 2d | 73 74 72 69 6e 67 20 73 |nt-send-|string s|
|000015a0| 63 68 65 6d 65 2d 70 72 | 6f 63 20 66 6f 72 6d 61 |cheme-pr|oc forma|
|000015b0| 74 20 73 63 68 65 6d 65 | 2d 63 6f 6d 70 69 6c 65 |t scheme|-compile|
|000015c0| 2d 65 78 70 2d 63 6f 6d | 6d 61 6e 64 20 22 28 62 |-exp-com|mand "(b|
|000015d0| 65 67 69 6e 20 25 73 29 | 22 20 73 74 61 72 74 20 |egin %s)|" start |
|000015e0| 65 6e 64 20 22 5c 6e 22 | 5d 20 38 20 22 5c 0a 43 |end "\n"|] 8 "\.C|
|000015f0| 6f 6d 70 69 6c 65 20 74 | 68 65 20 63 75 72 72 65 |ompile t|he curre|
|00001600| 6e 74 20 72 65 67 69 6f | 6e 20 69 6e 20 74 68 65 |nt regio|n in the|
|00001610| 20 69 6e 66 65 72 69 6f | 72 20 53 63 68 65 6d 65 | inferio|r Scheme|
|00001620| 20 70 72 6f 63 65 73 73 | 2e 0a 28 41 20 42 45 47 | process|..(A BEG|
|00001630| 49 4e 20 69 73 20 77 72 | 61 70 70 65 64 20 61 72 |IN is wr|apped ar|
|00001640| 6f 75 6e 64 20 74 68 65 | 20 72 65 67 69 6f 6e 3a |ound the| region:|
|00001650| 20 28 42 45 47 49 4e 20 | 3c 72 65 67 69 6f 6e 3e | (BEGIN |<region>|
|00001660| 29 29 22 20 22 72 22 5d | 29 0a 28 66 73 65 74 20 |))" "r"]|).(fset |
|00001670| 27 73 63 68 65 6d 65 2d | 63 6f 6d 70 69 6c 65 2d |'scheme-|compile-|
|00001680| 64 65 66 69 6e 69 74 69 | 6f 6e 20 23 5b 6e 69 6c |definiti|on #[nil|
|00001690| 20 22 8a c0 20 88 60 19 | c2 20 88 c3 60 09 5c 22 | ".. .`.|. ..`.\"|
|000016a0| 2a 87 22 20 5b 65 6e 64 | 2d 6f 66 2d 64 65 66 75 |*." [end|-of-defu|
|000016b0| 6e 20 65 6e 64 20 62 65 | 67 69 6e 6e 69 6e 67 2d |n end be|ginning-|
|000016c0| 6f 66 2d 64 65 66 75 6e | 20 73 63 68 65 6d 65 2d |of-defun| scheme-|
|000016d0| 63 6f 6d 70 69 6c 65 2d | 72 65 67 69 6f 6e 5d 20 |compile-|region] |
|000016e0| 33 20 22 5c 0a 43 6f 6d | 70 69 6c 65 20 74 68 65 |3 "\.Com|pile the|
|000016f0| 20 63 75 72 72 65 6e 74 | 20 64 65 66 69 6e 69 74 | current| definit|
|00001700| 69 6f 6e 20 69 6e 20 74 | 68 65 20 69 6e 66 65 72 |ion in t|he infer|
|00001710| 69 6f 72 20 53 63 68 65 | 6d 65 20 70 72 6f 63 65 |ior Sche|me proce|
|00001720| 73 73 2e 22 20 6e 69 6c | 5d 29 0a 28 66 73 65 74 |ss." nil|]).(fset|
|00001730| 20 27 73 77 69 74 63 68 | 2d 74 6f 2d 73 63 68 65 | 'switch|-to-sche|
|00001740| 6d 65 20 23 5b 28 65 6f | 62 2d 70 29 20 22 c0 09 |me #[(eo|b-p) "..|
|00001750| 21 ab 86 c2 09 21 88 aa | 84 c3 c4 21 88 0d ad 85 |!....!..|...!....|
|00001760| c6 20 88 64 62 87 22 20 | 5b 67 65 74 2d 62 75 66 |. .db." |[get-buf|
|00001770| 66 65 72 20 73 63 68 65 | 6d 65 2d 62 75 66 66 65 |fer sche|me-buffe|
|00001780| 72 20 70 6f 70 2d 74 6f | 2d 62 75 66 66 65 72 20 |r pop-to|-buffer |
|00001790| 65 72 72 6f 72 20 22 4e | 6f 20 63 75 72 72 65 6e |error "N|o curren|
|000017a0| 74 20 70 72 6f 63 65 73 | 73 20 62 75 66 66 65 72 |t proces|s buffer|
|000017b0| 2e 20 53 65 65 20 76 61 | 72 69 61 62 6c 65 20 73 |. See va|riable s|
|000017c0| 63 68 65 6d 65 2d 62 75 | 66 66 65 72 2e 22 20 65 |cheme-bu|ffer." e|
|000017d0| 6f 62 2d 70 20 70 75 73 | 68 2d 6d 61 72 6b 5d 20 |ob-p pus|h-mark] |
|000017e0| 32 20 22 5c 0a 53 77 69 | 74 63 68 20 74 6f 20 74 |2 "\.Swi|tch to t|
|000017f0| 68 65 20 73 63 68 65 6d | 65 20 70 72 6f 63 65 73 |he schem|e proces|
|00001800| 73 20 62 75 66 66 65 72 | 2e 0a 57 69 74 68 20 61 |s buffer|..With a|
|00001810| 72 67 75 6d 65 6e 74 2c | 20 70 6f 73 69 74 69 6f |rgument,| positio|
|00001820| 6e 73 20 63 75 72 73 6f | 72 20 61 74 20 65 6e 64 |ns curso|r at end|
|00001830| 20 6f 66 20 62 75 66 66 | 65 72 2e 22 20 22 50 22 | of buff|er." "P"|
|00001840| 5d 29 0a 28 66 73 65 74 | 20 27 73 63 68 65 6d 65 |]).(fset| 'scheme|
|00001850| 2d 73 65 6e 64 2d 72 65 | 67 69 6f 6e 2d 61 6e 64 |-send-re|gion-and|
|00001860| 2d 67 6f 20 23 5b 28 73 | 74 61 72 74 20 65 6e 64 |-go #[(s|tart end|
|00001870| 29 20 22 c0 09 5c 6e 5c | 22 88 c3 c4 21 87 22 20 |) "..\n\|"...!." |
|00001880| 5b 73 63 68 65 6d 65 2d | 73 65 6e 64 2d 72 65 67 |[scheme-|send-reg|
|00001890| 69 6f 6e 20 73 74 61 72 | 74 20 65 6e 64 20 73 77 |ion star|t end sw|
|000018a0| 69 74 63 68 2d 74 6f 2d | 73 63 68 65 6d 65 20 74 |itch-to-|scheme t|
|000018b0| 5d 20 33 20 22 5c 0a 53 | 65 6e 64 20 74 68 65 20 |] 3 "\.S|end the |
|000018c0| 63 75 72 72 65 6e 74 20 | 72 65 67 69 6f 6e 20 74 |current |region t|
|000018d0| 6f 20 74 68 65 20 69 6e | 66 65 72 69 6f 72 20 53 |o the in|ferior S|
|000018e0| 63 68 65 6d 65 20 70 72 | 6f 63 65 73 73 2e 0a 54 |cheme pr|ocess..T|
|000018f0| 68 65 6e 20 73 77 69 74 | 63 68 20 74 6f 20 74 68 |hen swit|ch to th|
|00001900| 65 20 70 72 6f 63 65 73 | 73 20 62 75 66 66 65 72 |e proces|s buffer|
|00001910| 2e 22 20 22 72 22 5d 29 | 0a 28 66 73 65 74 20 27 |." "r"])|.(fset '|
|00001920| 73 63 68 65 6d 65 2d 73 | 65 6e 64 2d 64 65 66 69 |scheme-s|end-defi|
|00001930| 6e 69 74 69 6f 6e 2d 61 | 6e 64 2d 67 6f 20 23 5b |nition-a|nd-go #[|
|00001940| 6e 69 6c 20 22 c0 20 88 | c1 c2 21 87 22 20 5b 73 |nil ". .|..!." [s|
|00001950| 63 68 65 6d 65 2d 73 65 | 6e 64 2d 64 65 66 69 6e |cheme-se|nd-defin|
|00001960| 69 74 69 6f 6e 20 73 77 | 69 74 63 68 2d 74 6f 2d |ition sw|itch-to-|
|00001970| 73 63 68 65 6d 65 20 74 | 5d 20 32 20 22 5c 0a 53 |scheme t|] 2 "\.S|
|00001980| 65 6e 64 20 74 68 65 20 | 63 75 72 72 65 6e 74 20 |end the |current |
|00001990| 64 65 66 69 6e 69 74 69 | 6f 6e 20 74 6f 20 74 68 |definiti|on to th|
|000019a0| 65 20 69 6e 66 65 72 69 | 6f 72 20 53 63 68 65 6d |e inferi|or Schem|
|000019b0| 65 2e 20 0a 54 68 65 6e | 20 73 77 69 74 63 68 20 |e. .Then| switch |
|000019c0| 74 6f 20 74 68 65 20 70 | 72 6f 63 65 73 73 20 62 |to the p|rocess b|
|000019d0| 75 66 66 65 72 2e 22 20 | 6e 69 6c 5d 29 0a 28 66 |uffer." |nil]).(f|
|000019e0| 73 65 74 20 27 73 63 68 | 65 6d 65 2d 63 6f 6d 70 |set 'sch|eme-comp|
|000019f0| 69 6c 65 2d 64 65 66 69 | 6e 69 74 69 6f 6e 2d 61 |ile-defi|nition-a|
|00001a00| 6e 64 2d 67 6f 20 23 5b | 6e 69 6c 20 22 c0 20 88 |nd-go #[|nil ". .|
|00001a10| c1 c2 21 87 22 20 5b 73 | 63 68 65 6d 65 2d 63 6f |..!." [s|cheme-co|
|00001a20| 6d 70 69 6c 65 2d 64 65 | 66 69 6e 69 74 69 6f 6e |mpile-de|finition|
|00001a30| 20 73 77 69 74 63 68 2d | 74 6f 2d 73 63 68 65 6d | switch-|to-schem|
|00001a40| 65 20 74 5d 20 32 20 22 | 5c 0a 43 6f 6d 70 69 6c |e t] 2 "|\.Compil|
|00001a50| 65 20 74 68 65 20 63 75 | 72 72 65 6e 74 20 64 65 |e the cu|rrent de|
|00001a60| 66 69 6e 69 74 69 6f 6e | 20 69 6e 20 74 68 65 20 |finition| in the |
|00001a70| 69 6e 66 65 72 69 6f 72 | 20 53 63 68 65 6d 65 2e |inferior| Scheme.|
|00001a80| 20 0a 54 68 65 6e 20 73 | 77 69 74 63 68 20 74 6f | .Then s|witch to|
|00001a90| 20 74 68 65 20 70 72 6f | 63 65 73 73 20 62 75 66 | the pro|cess buf|
|00001aa0| 66 65 72 2e 22 20 6e 69 | 6c 5d 29 0a 28 66 73 65 |fer." ni|l]).(fse|
|00001ab0| 74 20 27 73 63 68 65 6d | 65 2d 63 6f 6d 70 69 6c |t 'schem|e-compil|
|00001ac0| 65 2d 72 65 67 69 6f 6e | 2d 61 6e 64 2d 67 6f 20 |e-region|-and-go |
|00001ad0| 23 5b 28 73 74 61 72 74 | 20 65 6e 64 29 20 22 c0 |#[(start| end) ".|
|00001ae0| 09 5c 6e 5c 22 88 c3 c4 | 21 87 22 20 5b 73 63 68 |.\n\"...|!." [sch|
|00001af0| 65 6d 65 2d 63 6f 6d 70 | 69 6c 65 2d 72 65 67 69 |eme-comp|ile-regi|
|00001b00| 6f 6e 20 73 74 61 72 74 | 20 65 6e 64 20 73 77 69 |on start| end swi|
|00001b10| 74 63 68 2d 74 6f 2d 73 | 63 68 65 6d 65 20 74 5d |tch-to-s|cheme t]|
|00001b20| 20 33 20 22 5c 0a 43 6f | 6d 70 69 6c 65 20 74 68 | 3 "\.Co|mpile th|
|00001b30| 65 20 63 75 72 72 65 6e | 74 20 72 65 67 69 6f 6e |e curren|t region|
|00001b40| 20 69 6e 20 74 68 65 20 | 69 6e 66 65 72 69 6f 72 | in the |inferior|
|00001b50| 20 53 63 68 65 6d 65 2e | 20 0a 54 68 65 6e 20 73 | Scheme.| .Then s|
|00001b60| 77 69 74 63 68 20 74 6f | 20 74 68 65 20 70 72 6f |witch to| the pro|
|00001b70| 63 65 73 73 20 62 75 66 | 66 65 72 2e 22 20 22 72 |cess buf|fer." "r|
|00001b80| 22 5d 29 0a 28 64 65 66 | 76 61 72 20 73 63 68 65 |"]).(def|var sche|
|00001b90| 6d 65 2d 73 6f 75 72 63 | 65 2d 6d 6f 64 65 73 20 |me-sourc|e-modes |
|00001ba0| 27 28 73 63 68 65 6d 65 | 2d 6d 6f 64 65 29 20 22 |'(scheme|-mode) "|
|00001bb0| 5c 0a 2a 55 73 65 64 20 | 74 6f 20 64 65 74 65 72 |\.*Used |to deter|
|00001bc0| 6d 69 6e 65 20 69 66 20 | 61 20 62 75 66 66 65 72 |mine if |a buffer|
|00001bd0| 20 63 6f 6e 74 61 69 6e | 73 20 53 63 68 65 6d 65 | contain|s Scheme|
|00001be0| 20 73 6f 75 72 63 65 20 | 63 6f 64 65 2e 0a 49 66 | source |code..If|
|00001bf0| 20 69 74 27 73 20 6c 6f | 61 64 65 64 20 69 6e 74 | it's lo|aded int|
|00001c00| 6f 20 61 20 62 75 66 66 | 65 72 20 74 68 61 74 20 |o a buff|er that |
|00001c10| 69 73 20 69 6e 20 6f 6e | 65 20 6f 66 20 74 68 65 |is in on|e of the|
|00001c20| 73 65 20 6d 61 6a 6f 72 | 20 6d 6f 64 65 73 2c 20 |se major| modes, |
|00001c30| 69 74 27 73 0a 63 6f 6e | 73 69 64 65 72 65 64 20 |it's.con|sidered |
|00001c40| 61 20 73 63 68 65 6d 65 | 20 73 6f 75 72 63 65 20 |a scheme| source |
|00001c50| 66 69 6c 65 20 62 79 20 | 73 63 68 65 6d 65 2d 6c |file by |scheme-l|
|00001c60| 6f 61 64 2d 66 69 6c 65 | 20 61 6e 64 20 73 63 68 |oad-file| and sch|
|00001c70| 65 6d 65 2d 63 6f 6d 70 | 69 6c 65 2d 66 69 6c 65 |eme-comp|ile-file|
|00001c80| 2e 0a 55 73 65 64 20 62 | 79 20 74 68 65 73 65 20 |..Used b|y these |
|00001c90| 63 6f 6d 6d 61 6e 64 73 | 20 74 6f 20 64 65 74 65 |commands| to dete|
|00001ca0| 72 6d 69 6e 65 20 64 65 | 66 61 75 6c 74 73 2e 22 |rmine de|faults."|
|00001cb0| 29 0a 28 64 65 66 76 61 | 72 20 73 63 68 65 6d 65 |).(defva|r scheme|
|00001cc0| 2d 70 72 65 76 2d 6c 2f | 63 2d 64 69 72 2f 66 69 |-prev-l/|c-dir/fi|
|00001cd0| 6c 65 20 6e 69 6c 20 22 | 5c 0a 43 61 63 68 65 73 |le nil "|\.Caches|
|00001ce0| 20 74 68 65 20 6c 61 73 | 74 20 28 64 69 72 65 63 | the las|t (direc|
|00001cf0| 74 6f 72 79 20 2e 20 66 | 69 6c 65 29 20 70 61 69 |tory . f|ile) pai|
|00001d00| 72 2e 0a 43 61 63 68 65 | 73 20 74 68 65 20 6c 61 |r..Cache|s the la|
|00001d10| 73 74 20 70 61 69 72 20 | 75 73 65 64 20 69 6e 20 |st pair |used in |
|00001d20| 74 68 65 20 6c 61 73 74 | 20 73 63 68 65 6d 65 2d |the last| scheme-|
|00001d30| 6c 6f 61 64 2d 66 69 6c | 65 20 6f 72 0a 73 63 68 |load-fil|e or.sch|
|00001d40| 65 6d 65 2d 63 6f 6d 70 | 69 6c 65 2d 66 69 6c 65 |eme-comp|ile-file|
|00001d50| 20 63 6f 6d 6d 61 6e 64 | 2e 20 55 73 65 64 20 66 | command|. Used f|
|00001d60| 6f 72 20 64 65 74 65 72 | 6d 69 6e 69 6e 67 20 74 |or deter|mining t|
|00001d70| 68 65 20 64 65 66 61 75 | 6c 74 20 69 6e 20 74 68 |he defau|lt in th|
|00001d80| 65 20 0a 6e 65 78 74 20 | 6f 6e 65 2e 22 29 0a 28 |e .next |one.").(|
|00001d90| 66 73 65 74 20 27 73 63 | 68 65 6d 65 2d 6c 6f 61 |fset 'sc|heme-loa|
|00001da0| 64 2d 66 69 6c 65 20 23 | 5b 28 66 69 6c 65 2d 6e |d-file #|[(file-n|
|00001db0| 61 6d 65 29 20 22 c0 09 | 21 88 c2 09 21 c3 09 21 |ame) "..|!...!..!|
|00001dc0| 42 14 c5 c6 20 c7 09 c8 | 51 5c 22 87 22 20 5b 63 |B... ...|Q\"." [c|
|00001dd0| 6f 6d 69 6e 74 2d 63 68 | 65 63 6b 2d 73 6f 75 72 |omint-ch|eck-sour|
|00001de0| 63 65 20 66 69 6c 65 2d | 6e 61 6d 65 20 66 69 6c |ce file-|name fil|
|00001df0| 65 2d 6e 61 6d 65 2d 64 | 69 72 65 63 74 6f 72 79 |e-name-d|irectory|
|00001e00| 20 66 69 6c 65 2d 6e 61 | 6d 65 2d 6e 6f 6e 64 69 | file-na|me-nondi|
|00001e10| 72 65 63 74 6f 72 79 20 | 73 63 68 65 6d 65 2d 70 |rectory |scheme-p|
|00001e20| 72 65 76 2d 6c 2f 63 2d | 64 69 72 2f 66 69 6c 65 |rev-l/c-|dir/file|
|00001e30| 20 63 6f 6d 69 6e 74 2d | 73 65 6e 64 2d 73 74 72 | comint-|send-str|
|00001e40| 69 6e 67 20 73 63 68 65 | 6d 65 2d 70 72 6f 63 20 |ing sche|me-proc |
|00001e50| 22 28 6c 6f 61 64 20 5c | 22 22 20 22 5c 22 29 5c |"(load \|"" "\")\|
|00001e60| 6e 22 5d 20 35 20 22 5c | 0a 4c 6f 61 64 20 61 20 |n"] 5 "\|.Load a |
|00001e70| 53 63 68 65 6d 65 20 66 | 69 6c 65 20 69 6e 74 6f |Scheme f|ile into|
|00001e80| 20 74 68 65 20 69 6e 66 | 65 72 69 6f 72 20 53 63 | the inf|erior Sc|
|00001e90| 68 65 6d 65 20 70 72 6f | 63 65 73 73 2e 22 20 28 |heme pro|cess." (|
|00001ea0| 63 6f 6d 69 6e 74 2d 67 | 65 74 2d 73 6f 75 72 63 |comint-g|et-sourc|
|00001eb0| 65 20 22 4c 6f 61 64 20 | 53 63 68 65 6d 65 20 66 |e "Load |Scheme f|
|00001ec0| 69 6c 65 3a 20 22 20 73 | 63 68 65 6d 65 2d 70 72 |ile: " s|cheme-pr|
|00001ed0| 65 76 2d 6c 2f 63 2d 64 | 69 72 2f 66 69 6c 65 20 |ev-l/c-d|ir/file |
|00001ee0| 73 63 68 65 6d 65 2d 73 | 6f 75 72 63 65 2d 6d 6f |scheme-s|ource-mo|
|00001ef0| 64 65 73 20 74 29 5d 29 | 0a 28 66 73 65 74 20 27 |des t)])|.(fset '|
|00001f00| 73 63 68 65 6d 65 2d 63 | 6f 6d 70 69 6c 65 2d 66 |scheme-c|ompile-f|
|00001f10| 69 6c 65 20 23 5b 28 66 | 69 6c 65 2d 6e 61 6d 65 |ile #[(f|ile-name|
|00001f20| 29 20 22 c0 09 21 88 c2 | 09 21 c3 09 21 42 14 c5 |) "..!..|.!..!B..|
|00001f30| c6 20 c7 09 c8 51 5c 22 | 87 22 20 5b 63 6f 6d 69 |. ...Q\"|." [comi|
|00001f40| 6e 74 2d 63 68 65 63 6b | 2d 73 6f 75 72 63 65 20 |nt-check|-source |
|00001f50| 66 69 6c 65 2d 6e 61 6d | 65 20 66 69 6c 65 2d 6e |file-nam|e file-n|
|00001f60| 61 6d 65 2d 64 69 72 65 | 63 74 6f 72 79 20 66 69 |ame-dire|ctory fi|
|00001f70| 6c 65 2d 6e 61 6d 65 2d | 6e 6f 6e 64 69 72 65 63 |le-name-|nondirec|
|00001f80| 74 6f 72 79 20 73 63 68 | 65 6d 65 2d 70 72 65 76 |tory sch|eme-prev|
|00001f90| 2d 6c 2f 63 2d 64 69 72 | 2f 66 69 6c 65 20 63 6f |-l/c-dir|/file co|
|00001fa0| 6d 69 6e 74 2d 73 65 6e | 64 2d 73 74 72 69 6e 67 |mint-sen|d-string|
|00001fb0| 20 73 63 68 65 6d 65 2d | 70 72 6f 63 20 22 28 63 | scheme-|proc "(c|
|00001fc0| 6f 6d 70 69 6c 65 2d 66 | 69 6c 65 20 5c 22 22 20 |ompile-f|ile \"" |
|00001fd0| 22 5c 22 29 5c 6e 22 5d | 20 35 20 22 5c 0a 43 6f |"\")\n"]| 5 "\.Co|
|00001fe0| 6d 70 69 6c 65 20 61 20 | 53 63 68 65 6d 65 20 66 |mpile a |Scheme f|
|00001ff0| 69 6c 65 20 69 6e 20 74 | 68 65 20 69 6e 66 65 72 |ile in t|he infer|
|00002000| 69 6f 72 20 53 63 68 65 | 6d 65 20 70 72 6f 63 65 |ior Sche|me proce|
|00002010| 73 73 2e 22 20 28 63 6f | 6d 69 6e 74 2d 67 65 74 |ss." (co|mint-get|
|00002020| 2d 73 6f 75 72 63 65 20 | 22 43 6f 6d 70 69 6c 65 |-source |"Compile|
|00002030| 20 53 63 68 65 6d 65 20 | 66 69 6c 65 3a 20 22 20 | Scheme |file: " |
|00002040| 73 63 68 65 6d 65 2d 70 | 72 65 76 2d 6c 2f 63 2d |scheme-p|rev-l/c-|
|00002050| 64 69 72 2f 66 69 6c 65 | 20 73 63 68 65 6d 65 2d |dir/file| scheme-|
|00002060| 73 6f 75 72 63 65 2d 6d | 6f 64 65 73 20 6e 69 6c |source-m|odes nil|
|00002070| 29 5d 29 0a 28 64 65 66 | 76 61 72 20 73 63 68 65 |)]).(def|var sche|
|00002080| 6d 65 2d 62 75 66 66 65 | 72 20 6e 69 6c 20 22 5c |me-buffe|r nil "\|
|00002090| 0a 2a 54 68 65 20 63 75 | 72 72 65 6e 74 20 73 63 |.*The cu|rrent sc|
|000020a0| 68 65 6d 65 20 70 72 6f | 63 65 73 73 20 62 75 66 |heme pro|cess buf|
|000020b0| 66 65 72 2e 0a 0a 4d 55 | 4c 54 49 50 4c 45 20 50 |fer...MU|LTIPLE P|
|000020c0| 52 4f 43 45 53 53 20 53 | 55 50 50 4f 52 54 0a 3d |ROCESS S|UPPORT.=|
|000020d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000020e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000020f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002100| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002110| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 0a 43 6d 75 73 63 |========|==.Cmusc|
|00002120| 68 65 6d 65 2e 65 6c 20 | 73 75 70 70 6f 72 74 73 |heme.el |supports|
|00002130| 2c 20 69 6e 20 61 20 66 | 61 69 72 6c 79 20 73 69 |, in a f|airly si|
|00002140| 6d 70 6c 65 20 66 61 73 | 68 69 6f 6e 2c 20 72 75 |mple fas|hion, ru|
|00002150| 6e 6e 69 6e 67 20 6d 75 | 6c 74 69 70 6c 65 20 53 |nning mu|ltiple S|
|00002160| 63 68 65 6d 65 0a 70 72 | 6f 63 65 73 73 65 73 2e |cheme.pr|ocesses.|
|00002170| 20 54 6f 20 72 75 6e 20 | 6d 75 6c 74 69 70 6c 65 | To run |multiple|
|00002180| 20 53 63 68 65 6d 65 20 | 70 72 6f 63 65 73 73 65 | Scheme |processe|
|00002190| 73 2c 20 79 6f 75 20 73 | 74 61 72 74 20 74 68 65 |s, you s|tart the|
|000021a0| 20 66 69 72 73 74 20 75 | 70 20 77 69 74 68 0a 5c | first u|p with.\|
|000021b0| 5c 5b 72 75 6e 2d 73 63 | 68 65 6d 65 5d 2e 20 49 |\[run-sc|heme]. I|
|000021c0| 74 20 77 69 6c 6c 20 62 | 65 20 69 6e 20 61 20 62 |t will b|e in a b|
|000021d0| 75 66 66 65 72 20 6e 61 | 6d 65 64 20 2a 73 63 68 |uffer na|med *sch|
|000021e0| 65 6d 65 2a 2e 20 52 65 | 6e 61 6d 65 20 74 68 69 |eme*. Re|name thi|
|000021f0| 73 20 62 75 66 66 65 72 | 0a 77 69 74 68 20 5c 5c |s buffer|.with \\|
|00002200| 5b 72 65 6e 61 6d 65 2d | 62 75 66 66 65 72 5d 2e |[rename-|buffer].|
|00002210| 20 59 6f 75 20 6d 61 79 | 20 6e 6f 77 20 73 74 61 | You may| now sta|
|00002220| 72 74 20 75 70 20 61 20 | 6e 65 77 20 70 72 6f 63 |rt up a |new proc|
|00002230| 65 73 73 20 77 69 74 68 | 20 61 6e 6f 74 68 65 72 |ess with| another|
|00002240| 0a 5c 5c 5b 72 75 6e 2d | 73 63 68 65 6d 65 5d 2e |.\\[run-|scheme].|
|00002250| 20 49 74 20 77 69 6c 6c | 20 62 65 20 69 6e 20 61 | It will| be in a|
|00002260| 20 6e 65 77 20 62 75 66 | 66 65 72 2c 20 6e 61 6d | new buf|fer, nam|
|00002270| 65 64 20 2a 73 63 68 65 | 6d 65 2a 2e 20 59 6f 75 |ed *sche|me*. You|
|00002280| 20 63 61 6e 0a 73 77 69 | 74 63 68 20 62 65 74 77 | can.swi|tch betw|
|00002290| 65 65 6e 20 74 68 65 20 | 64 69 66 66 65 72 65 6e |een the |differen|
|000022a0| 74 20 70 72 6f 63 65 73 | 73 20 62 75 66 66 65 72 |t proces|s buffer|
|000022b0| 73 20 77 69 74 68 20 5c | 5c 5b 73 77 69 74 63 68 |s with \|\[switch|
|000022c0| 2d 74 6f 2d 62 75 66 66 | 65 72 5d 2e 0a 0a 43 6f |-to-buff|er]...Co|
|000022d0| 6d 6d 61 6e 64 73 20 74 | 68 61 74 20 73 65 6e 64 |mmands t|hat send|
|000022e0| 20 74 65 78 74 20 66 72 | 6f 6d 20 73 6f 75 72 63 | text fr|om sourc|
|000022f0| 65 20 62 75 66 66 65 72 | 73 20 74 6f 20 53 63 68 |e buffer|s to Sch|
|00002300| 65 6d 65 20 70 72 6f 63 | 65 73 73 65 73 20 2d 2d |eme proc|esses --|
|00002310| 0a 6c 69 6b 65 20 73 63 | 68 65 6d 65 2d 73 65 6e |.like sc|heme-sen|
|00002320| 64 2d 64 65 66 69 6e 69 | 74 69 6f 6e 20 6f 72 20 |d-defini|tion or |
|00002330| 73 63 68 65 6d 65 2d 63 | 6f 6d 70 69 6c 65 2d 72 |scheme-c|ompile-r|
|00002340| 65 67 69 6f 6e 20 2d 2d | 20 68 61 76 65 20 74 6f |egion --| have to|
|00002350| 20 63 68 6f 6f 73 65 20 | 61 0a 70 72 6f 63 65 73 | choose |a.proces|
|00002360| 73 20 74 6f 20 73 65 6e | 64 20 74 6f 2c 20 77 68 |s to sen|d to, wh|
|00002370| 65 6e 20 79 6f 75 20 68 | 61 76 65 20 6d 6f 72 65 |en you h|ave more|
|00002380| 20 74 68 61 6e 20 6f 6e | 65 20 53 63 68 65 6d 65 | than on|e Scheme|
|00002390| 20 70 72 6f 63 65 73 73 | 20 61 72 6f 75 6e 64 2e | process| around.|
|000023a0| 20 54 68 69 73 0a 69 73 | 20 64 65 74 65 72 6d 69 | This.is| determi|
|000023b0| 6e 65 64 20 62 79 20 74 | 68 65 20 67 6c 6f 62 61 |ned by t|he globa|
|000023c0| 6c 20 76 61 72 69 61 62 | 6c 65 20 73 63 68 65 6d |l variab|le schem|
|000023d0| 65 2d 62 75 66 66 65 72 | 2e 20 53 75 70 70 6f 73 |e-buffer|. Suppos|
|000023e0| 65 20 79 6f 75 0a 68 61 | 76 65 20 74 68 72 65 65 |e you.ha|ve three|
|000023f0| 20 69 6e 66 65 72 69 6f | 72 20 53 63 68 65 6d 65 | inferio|r Scheme|
|00002400| 73 20 72 75 6e 6e 69 6e | 67 3a 0a 20 20 20 20 42 |s runnin|g:. B|
|00002410| 75 66 66 65 72 09 50 72 | 6f 63 65 73 73 0a 20 20 |uffer.Pr|ocess. |
|00002420| 20 20 66 6f 6f 09 09 73 | 63 68 65 6d 65 0a 20 20 | foo..s|cheme. |
|00002430| 20 20 62 61 72 09 09 73 | 63 68 65 6d 65 3c 32 3e | bar..s|cheme<2>|
|00002440| 0a 20 20 20 20 2a 73 63 | 68 65 6d 65 2a 20 20 20 |. *sc|heme* |
|00002450| 20 73 63 68 65 6d 65 3c | 33 3e 0a 49 66 20 79 6f | scheme<|3>.If yo|
|00002460| 75 20 64 6f 20 61 20 5c | 5c 5b 73 63 68 65 6d 65 |u do a \|\[scheme|
|00002470| 2d 73 65 6e 64 2d 64 65 | 66 69 6e 69 74 69 6f 6e |-send-de|finition|
|00002480| 2d 61 6e 64 2d 67 6f 5d | 20 63 6f 6d 6d 61 6e 64 |-and-go]| command|
|00002490| 20 6f 6e 20 73 6f 6d 65 | 20 53 63 68 65 6d 65 20 | on some| Scheme |
|000024a0| 73 6f 75 72 63 65 0a 63 | 6f 64 65 2c 20 77 68 61 |source.c|ode, wha|
|000024b0| 74 20 70 72 6f 63 65 73 | 73 20 64 6f 20 79 6f 75 |t proces|s do you|
|000024c0| 20 73 65 6e 64 20 69 74 | 20 74 6f 3f 0a 0a 2d 20 | send it| to?..- |
|000024d0| 49 66 20 79 6f 75 27 72 | 65 20 69 6e 20 61 20 70 |If you'r|e in a p|
|000024e0| 72 6f 63 65 73 73 20 62 | 75 66 66 65 72 20 28 66 |rocess b|uffer (f|
|000024f0| 6f 6f 2c 20 62 61 72 2c | 20 6f 72 20 2a 73 63 68 |oo, bar,| or *sch|
|00002500| 65 6d 65 2a 29 2c 20 0a | 20 20 79 6f 75 20 73 65 |eme*), .| you se|
|00002510| 6e 64 20 69 74 20 74 6f | 20 74 68 61 74 20 70 72 |nd it to| that pr|
|00002520| 6f 63 65 73 73 2e 0a 2d | 20 49 66 20 79 6f 75 27 |ocess..-| If you'|
|00002530| 72 65 20 69 6e 20 73 6f | 6d 65 20 6f 74 68 65 72 |re in so|me other|
|00002540| 20 62 75 66 66 65 72 20 | 28 65 2e 67 2e 2c 20 61 | buffer |(e.g., a|
|00002550| 20 73 6f 75 72 63 65 20 | 66 69 6c 65 29 2c 20 79 | source |file), y|
|00002560| 6f 75 0a 20 20 73 65 6e | 64 20 69 74 20 74 6f 20 |ou. sen|d it to |
|00002570| 74 68 65 20 70 72 6f 63 | 65 73 73 20 61 74 74 61 |the proc|ess atta|
|00002580| 63 68 65 64 20 74 6f 20 | 62 75 66 66 65 72 20 73 |ched to |buffer s|
|00002590| 63 68 65 6d 65 2d 62 75 | 66 66 65 72 2e 0a 54 68 |cheme-bu|ffer..Th|
|000025a0| 69 73 20 70 72 6f 63 65 | 73 73 20 73 65 6c 65 63 |is proce|ss selec|
|000025b0| 74 69 6f 6e 20 69 73 20 | 70 65 72 66 6f 72 6d 65 |tion is |performe|
|000025c0| 64 20 62 79 20 66 75 6e | 63 74 69 6f 6e 20 73 63 |d by fun|ction sc|
|000025d0| 68 65 6d 65 2d 70 72 6f | 63 2e 0a 0a 57 68 65 6e |heme-pro|c...When|
|000025e0| 65 76 65 72 20 5c 5c 5b | 72 75 6e 2d 73 63 68 65 |ever \\[|run-sche|
|000025f0| 6d 65 5d 20 66 69 72 65 | 73 20 75 70 20 61 20 6e |me] fire|s up a n|
|00002600| 65 77 20 70 72 6f 63 65 | 73 73 2c 20 69 74 20 72 |ew proce|ss, it r|
|00002610| 65 73 65 74 73 20 73 63 | 68 65 6d 65 2d 62 75 66 |esets sc|heme-buf|
|00002620| 66 65 72 0a 74 6f 20 62 | 65 20 74 68 65 20 6e 65 |fer.to b|e the ne|
|00002630| 77 20 70 72 6f 63 65 73 | 73 27 73 20 62 75 66 66 |w proces|s's buff|
|00002640| 65 72 2e 20 49 66 20 79 | 6f 75 20 6f 6e 6c 79 20 |er. If y|ou only |
|00002650| 72 75 6e 20 6f 6e 65 20 | 70 72 6f 63 65 73 73 2c |run one |process,|
|00002660| 20 74 68 69 73 20 77 69 | 6c 6c 0a 64 6f 20 74 68 | this wi|ll.do th|
|00002670| 65 20 72 69 67 68 74 20 | 74 68 69 6e 67 2e 20 49 |e right |thing. I|
|00002680| 66 20 79 6f 75 20 72 75 | 6e 20 6d 75 6c 74 69 70 |f you ru|n multip|
|00002690| 6c 65 20 70 72 6f 63 65 | 73 73 65 73 2c 20 79 6f |le proce|sses, yo|
|000026a0| 75 20 63 61 6e 20 63 68 | 61 6e 67 65 0a 73 63 68 |u can ch|ange.sch|
|000026b0| 65 6d 65 2d 62 75 66 66 | 65 72 20 74 6f 20 61 6e |eme-buff|er to an|
|000026c0| 6f 74 68 65 72 20 70 72 | 6f 63 65 73 73 20 62 75 |other pr|ocess bu|
|000026d0| 66 66 65 72 20 77 69 74 | 68 20 5c 5c 5b 73 65 74 |ffer wit|h \\[set|
|000026e0| 2d 76 61 72 69 61 62 6c | 65 5d 2e 0a 0a 4d 6f 72 |-variabl|e]...Mor|
|000026f0| 65 20 73 6f 70 68 69 73 | 74 69 63 61 74 65 64 20 |e sophis|ticated |
|00002700| 61 70 70 72 6f 61 63 68 | 65 73 20 61 72 65 2c 20 |approach|es are, |
|00002710| 6f 66 20 63 6f 75 72 73 | 65 2c 20 70 6f 73 73 69 |of cours|e, possi|
|00002720| 62 6c 65 2e 20 49 66 20 | 79 6f 75 20 66 69 6e 64 |ble. If |you find|
|00002730| 20 79 6f 75 72 73 65 6c | 66 0a 6e 65 65 64 69 6e | yoursel|f.needin|
|00002740| 67 20 74 6f 20 73 77 69 | 74 63 68 20 62 61 63 6b |g to swi|tch back|
|00002750| 20 61 6e 64 20 66 6f 72 | 74 68 20 62 65 74 77 65 | and for|th betwe|
|00002760| 65 6e 20 6d 75 6c 74 69 | 70 6c 65 20 70 72 6f 63 |en multi|ple proc|
|00002770| 65 73 73 65 73 20 66 72 | 65 71 75 65 6e 74 6c 79 |esses fr|equently|
|00002780| 2c 0a 79 6f 75 20 6d 61 | 79 20 77 69 73 68 20 74 |,.you ma|y wish t|
|00002790| 6f 20 63 6f 6e 73 69 64 | 65 72 20 69 6c 69 73 70 |o consid|er ilisp|
|000027a0| 2e 65 6c 2c 20 61 20 6c | 61 72 67 65 72 2c 20 6d |.el, a l|arger, m|
|000027b0| 6f 72 65 20 73 6f 70 68 | 69 73 74 69 63 61 74 65 |ore soph|isticate|
|000027c0| 64 20 70 61 63 6b 61 67 | 65 0a 66 6f 72 20 72 75 |d packag|e.for ru|
|000027d0| 6e 6e 69 6e 67 20 69 6e | 66 65 72 69 6f 72 20 4c |nning in|ferior L|
|000027e0| 69 73 70 20 61 6e 64 20 | 53 63 68 65 6d 65 20 70 |isp and |Scheme p|
|000027f0| 72 6f 63 65 73 73 65 73 | 2e 20 54 68 65 20 61 70 |rocesses|. The ap|
|00002800| 70 72 6f 61 63 68 20 74 | 61 6b 65 6e 20 68 65 72 |proach t|aken her|
|00002810| 65 20 69 73 0a 66 6f 72 | 20 61 20 6d 69 6e 69 6d |e is.for| a minim|
|00002820| 61 6c 2c 20 73 69 6d 70 | 6c 65 20 69 6d 70 6c 65 |al, simp|le imple|
|00002830| 6d 65 6e 74 61 74 69 6f | 6e 2e 20 46 65 65 6c 20 |mentatio|n. Feel |
|00002840| 66 72 65 65 20 74 6f 20 | 65 78 74 65 6e 64 20 69 |free to |extend i|
|00002850| 74 2e 22 29 0a 28 66 73 | 65 74 20 27 73 63 68 65 |t.").(fs|et 'sche|
|00002860| 6d 65 2d 70 72 6f 63 20 | 23 5b 6e 69 6c 20 22 c0 |me-proc |#[nil ".|
|00002870| 09 c2 3d ab 83 70 aa 81 | 0b 21 89 1c ae 83 c5 c6 |..=..p..|.!......|
|00002880| 21 29 87 22 20 5b 67 65 | 74 2d 62 75 66 66 65 72 |!)." [ge|t-buffer|
|00002890| 2d 70 72 6f 63 65 73 73 | 20 6d 61 6a 6f 72 2d 6d |-process| major-m|
|000028a0| 6f 64 65 20 69 6e 66 65 | 72 69 6f 72 2d 73 63 68 |ode infe|rior-sch|
|000028b0| 65 6d 65 2d 6d 6f 64 65 | 20 73 63 68 65 6d 65 2d |eme-mode| scheme-|
|000028c0| 62 75 66 66 65 72 20 70 | 72 6f 63 20 65 72 72 6f |buffer p|roc erro|
|000028d0| 72 20 22 4e 6f 20 63 75 | 72 72 65 6e 74 20 70 72 |r "No cu|rrent pr|
|000028e0| 6f 63 65 73 73 2e 20 53 | 65 65 20 76 61 72 69 61 |ocess. S|ee varia|
|000028f0| 62 6c 65 20 73 63 68 65 | 6d 65 2d 62 75 66 66 65 |ble sche|me-buffe|
|00002900| 72 22 5d 20 34 20 22 5c | 0a 52 65 74 75 72 6e 73 |r"] 4 "\|.Returns|
|00002910| 20 74 68 65 20 63 75 72 | 72 65 6e 74 20 73 63 68 | the cur|rent sch|
|00002920| 65 6d 65 20 70 72 6f 63 | 65 73 73 2e 20 53 65 65 |eme proc|ess. See|
|00002930| 20 76 61 72 69 61 62 6c | 65 20 73 63 68 65 6d 65 | variabl|e scheme|
|00002940| 2d 62 75 66 66 65 72 2e | 22 5d 29 0a 28 64 65 66 |-buffer.|"]).(def|
|00002950| 76 61 72 20 63 6d 75 73 | 63 68 65 6d 65 2d 6c 6f |var cmus|cheme-lo|
|00002960| 61 64 2d 68 6f 6f 6b 20 | 6e 69 6c 20 22 5c 0a 54 |ad-hook |nil "\.T|
|00002970| 68 69 73 20 68 6f 6f 6b | 20 69 73 20 72 75 6e 20 |his hook| is run |
|00002980| 77 68 65 6e 20 63 6d 75 | 73 63 68 65 6d 65 20 69 |when cmu|scheme i|
|00002990| 73 20 6c 6f 61 64 65 64 | 20 69 6e 2e 0a 54 68 69 |s loaded| in..Thi|
|000029a0| 73 20 69 73 20 61 20 67 | 6f 6f 64 20 70 6c 61 63 |s is a g|ood plac|
|000029b0| 65 20 74 6f 20 70 75 74 | 20 6b 65 79 62 69 6e 64 |e to put| keybind|
|000029c0| 69 6e 67 73 2e 22 29 0a | 28 62 79 74 65 2d 63 6f |ings.").|(byte-co|
|000029d0| 64 65 20 22 c0 c1 21 88 | c2 c3 21 87 22 20 5b 72 |de "..!.|..!." [r|
|000029e0| 75 6e 2d 68 6f 6f 6b 73 | 20 63 6d 75 73 63 68 65 |un-hooks| cmusche|
|000029f0| 6d 65 2d 6c 6f 61 64 2d | 68 6f 6f 6b 20 70 72 6f |me-load-|hook pro|
|00002a00| 76 69 64 65 20 63 6d 75 | 73 63 68 65 6d 65 5d 20 |vide cmu|scheme] |
|00002a10| 32 29 0a | |2). | |
+--------+-------------------------+-------------------------+--------+--------+
